1000 IFAATHENSYS6144
1010 POKE53281,0:POKE53280,0:PRINT"[153]"
1020 FORI=1TO3:READPR$(I):NEXT
1030 DATA"MENU+CLI","MENU    ","CLI     "
1040 FORI=0TO3:READRM$(I):NEXT
1050 DATA"RAMDISK","PUFFER ","FREI   ","PRG    "
1060 C=(PEEK(1)AND64)/-64:D0=8:D1=0
1070 D0$="VC 1571 ALS UNIT "+CHR$(D0+48)
1080 D1$="KEINE ":D2$="NEIN"
1090 PRINT"[147]"CHR$(142)
1100 PRINT"INSTALLATIONSPROGRAMM ZU BDOS
1110 [153]:[153]
1120 [153]"HARDWARE :"
1130 [153]
1140 [139]C[167][153]"1) COMPUTER :C128 (D)
1150 IFNOTCTHENPRINT"1) COMPUTER :C64     "
1160 PRINT"2) 1.FLOPPY :"D0$
1170 PRINT"3) 2.FLOPPY :"D1$
1175 REM  PRINT"4) FLOPPY AN RS232:"D2$
1180 PRINT""
1190 INPUT"RICHTIG (1-4/J) ";A$
1200 IFA$="J" THEN1440
1210 IFA$="1"THENC=-1-C:GOTO1100
1220 IFA$="2"THENGOSUB1250:D0=D:D0$=D$:GOTO1090
1230 IFA$="3"THENGOSUB1250:D1=D:D1$=D$:GOTO1090
1231 REM  IFA$="4"AND D2$<>"JA  " THEN D2$="JA  ":GOTO1100
1232 REM  IFA$="4"AND D2$<>"NEIN" THEN D2$="NEIN":GOTO1100
1240 GOTO1180
1250 PRINT"[147]FLOPPY :
1260 [153]"1) KEINE
1270 PRINT"2) VC 1571
1280 [153]"3) VC 1570
1290 PRINT"4) ANDERE
1300 [153]""
1310 [133]"WELCHE (1-4) ";A$
1320 [139]A$[179]"1"[176]A$[177]"4"[167]1300
1330 A[178][197](A$)
1340 [139]A[178]1[167]D$[178]"KEINE":D[178]0:[142]
1350 [139]A[178]2[167]D$[178]"VC 1571"
1360 [139]A[178]3[167]D$[178]"VC 1570"
1370 [139]A[178]4[167]D$[178]"ANDERE FLOPPY"
1380 [153]"
1390 INPUT"GERAETEADRESSE (4-15) ";A$
1400 D=VAL(A$)
1410 IFD<4ORD>15THEN1380
1420 D$=D$+" ALS UNIT"+STR$(D)
1430 RETURN
1440 PRINT"[147]":PR=1:FM=0:FORI=5TO8:M(I)=0:NEXT
1445 IF D2$="JA  " THEN M(8)=3
1450 IFCTHENS0=70
1460 IFNOTCTHENS0=16
1470 IFPR=1THENB0=2:M(5)=3:M(6)=3
1480 IFPR=2THENB0=2:M(5)=3:M(6)=1
1490 IFPR=3THENB0=4:M(5)=1:M(6)=1
1500 MC=0:IFPR<3ANDNOTCTHENMC=3
1510 S1=0:B1=0
1520 S1=-4*((M(5)=0)+(M(6)=0)+(M(7)=0)+(M(8)=0))-2*(MC=0)
1530 FORI=5TO8:IFM(I)=3THENNEXT:GOTO1550
1540 IFM(I)=1THENB1=B1+4:NEXT
1550 SI=S0+S1:SI$=STR$(SI):BU=B0+B1:BU$=STR$(BU)
1560 PRINT""CHR$(142)
1570 PRINT"INSTALLATIONSPROGRAMM ZU BDOS
1580 [153]
1590 [153]"SOFTWARE :"
1600 [153]"1) HAUPTPROGRAMM :"PR$(PR)
1610 [153]"2) $8000-$9000   :"RM$(M(8))
1620 [153]"3) $7000-$8000   :"RM$(M(7))
1630 [153]"4) $6000-$7000   :"RM$(M(6))
1640 [153]"5) $5000-$6000   :"RM$(M(5))
1650 [153]"=> RAMDISK       :"SI$" KBYTE  "
1660 [153]"=> PUFFERGROESSE :"BU$" KBYTE  "
1670 [153]"
1680 INPUT"RICHTIG (1-5/J) ";A$
1690 IFA$="J"THEN1830
1700 IFA$<"1"ORA$>"5"THEN1230
1710 A=VAL(A$):ONAGOTO1730,1770,1750,1790,1810
1720 GOTO1440
1730 PR=PR+1:IFPR=4THENPR=1
1740 GOTO1470
1750 IF M(7)<>3 THENM(7)=M(7)+1:IFM(7)=3THENM(7)=0
1760 GOTO1510
1770 IF M(8)<>3 THENM(8)=M(8)+1:IFM(8)=3THENM(8)=0
1780 GOTO1510
1790 IFM(6)<>3THENM(6)=M(6)+1:IFM(6)=3THENM(6)=0
1800 GOTO1510
1810 IFM(5)<>3THENM(5)=M(5)+1:IFM(5)=3THENM(5)=0
1820 GOTO1510
1830 PRINT"[147]INSTALLATIONSPROGRAMM ZU BDOS
1840 [153]"GEBEN SIE IHRE WUNSCHFARBEN EIN:":[153]
1850 [133]"HINTERGRUND   6CMDCMDCMD";HF
1860 [153]:
1870 [133]"TEXT          14CMDCMDCMDCMD";TF
1880 HF$[178][199](48[170]HF[171]7[172](HF[177]9))
1890 TF$[178][199](48[170]TF[171]7[172](TF[177]9))
1900 [153]"LOADBITTE WARTEN, ICH ERSTELLE LADEDATEI
1910 OPEN1,8,15,"S:AUTOLOAD"
1920 CLOSE1
1930 OPEN1,8,1,"AUTOLOAD"
1940 PRINT#1,"  BD  1.43BA\A000"
1950 M4$="F"
1960 IFPR=3ANDNOTCTHENPRINT#1,"CM  1.0A9F/A\9F00"
1970 IFPR<>3ANDNOTCTHENPRINT#1,"CS  1.1EC/A\C000":M4$="7"
1980 LR$="C":REM DRIVE RAMDISK
1990 LA$="A":REM DRIVE 1
2000 LB$="B":REM DRIVE 2
2010 M3$="0":IFM(8)=0THENM3$="C"
2020 M2$="0"
2030 IFM(7)= 0ANDM(6)= 0THENM2$="F"
2040 IFM(7)<>0ANDM(6)= 0THENM2$="C"
2050 IFM(7)= 0ANDM(6)<>0THENM2$="3"
2060 M1$="0":IFM(5)=0THENM1$="3"
2070 MX$="0"+M1$+M2$+M3$+"0"+M4$
2080 IFNOTCTHEN2120
2090 RD$="VR  2.0C98/A\9800\"+LR$+" 0"+MX$+"E3FFFFFFE"
2100 DD$="VD  1.5C9/A\9000\"
2105 XD$="VX  1.0B8/A\8000\D"
2110 GOTO2140
2120 RD$="CR  1.0C98/A\9800\"+LR$+" 4"+MX$+"F"
2130 DD$="CD  2.0A9/A\9000\"
2135 XD$="CX  1.0A8/A\8000\D"
2140 DD$=DD$+LA$+":"+MID$(STR$(D0),2)+",0 "
2150 IFD1=0THEN2170
2160 DD$=DD$+LB$+":"+MID$(STR$(D1),2)+",0"
2170 PRINT#1,RD$
2180 PRINT#1,DD$
2185 IF D2$="JA  "THENPRINT#1,XD$
2190 PR$="PR  2.2"+CHR$(64+PR)+"28/A\2800\8 "+TF$+" "+HF$+" "
2200 B1=INT(BU/4):B0=(BU-B1*4)*4
2210 PR$=PR$+CHR$(48+B1)+CHR$(48+B0)+"00"
2220 PRINT#1,PR$
2230 CLOSE1
2240 PRINT"FERTIG !"
2250 PRINT:PRINT
2260 INPUT"WOLLEN SIE GLEICH STARTEN (J/N) ";A$
2270 PRINT:AA=1
2280 IFA$="J"THENLOAD"LOADER 1.0D18",8,8